home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 February / PCWorld_2000-02_cd.bin / Software / Vyzkuste / xsetup / _SETUP.2 / Group3 / XQ Startmenu Items 1.xpl < prev    next >
Text File  |  1999-08-29  |  2KB  |  70 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="4"
  4. "UIPATH"="Appearance\Start menu\Visible Items"
  5. "NAME"="Visible Items #1"
  6. "VERSION"="1.70"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Show "Favorites" in Start menu"
  9. "TEXT 2"="Show "Recent Documents" in Start menu"
  10. "TEXT 3"="Show "Run..." in Start menu"
  11. "TEXT 4"="Show "Exit..." in Start menu"
  12. "DESCRIPTION 1"="Use this plug-in to show or hide some of the items in the Start menu."
  13. "DESCRIPTION 2"="NOTE: "Show Favorites" requires Internet Explorer 4."
  14. "AUTHOR"="Xteq Systems"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
  17.  
  18.  
  19. 'Declaration of some constants
  20. sP="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
  21.  
  22. 'Called when the Plugin is started
  23. SUB Plugin_Initialize 
  24.  i=RegReadValue(sp&"NoFavoritesMenu") 'DW
  25.  If IsEmpty(i) or i=0 then SetUIElement 1,true
  26.  
  27.  i=RegReadValue(sp&"NoRecentDocsMenu") 'DW
  28.  if IsEmpty(i) or i=0 then SetUIElement 2,true
  29.  
  30.  i=RegReadValue(sp&"NoRun") 'DW
  31.  if IsEmpty(i) or i=0 then SetUIElement 3,true
  32.  
  33.  i=RegReadValue(sp&"NoClose") 'DW
  34.  if IsEmpty(i) or i=0 then SetUIElement 4,true 
  35. END SUB
  36.  
  37. 'Called when the Plugin should validate the Data the user has entered
  38. SUB Plugin_CheckData(ElementIndex)
  39. END SUB
  40.  
  41. 'Called when the Plugin should apply the changes
  42. SUB Plugin_Apply(ElementIndex,ElementSubIndex) 
  43.  Call WriteIt(1,sp&"NoFavoritesMenu")
  44.  Call WriteIt(2,sp&"NoRecentDocsMenu")
  45.  Call WriteIt(3,sp&"NoRun")
  46.  Call WriteIt(4,sp&"NoClose")
  47.  
  48.  
  49.  Call Logoff
  50. END SUB
  51.  
  52. Sub WriteIt(ITM,PATH)
  53.   b=GetUIElement(ITM)
  54.   if b=true then
  55.      s=RegReadValue(PATH)
  56.      if IsEmpty(s)=false then
  57.         Call RegDeleteValue(Path)
  58.      end if
  59.   else
  60.     Call RegWriteValue(PATH,1,2)
  61.   end if
  62. End Sub
  63.  
  64.  
  65.  
  66.  
  67. 'Called when the Plugin is about to be removed from memory
  68. SUB Plugin_Terminate
  69. END SUB
  70.